home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 5 / Gold Medal Software - Volume 5 (Gold Medal) (1995).iso / database / cardx135.arj / ACROSS.PRT < prev    next >
Text File  |  1993-11-19  |  2KB  |  24 lines
  1.  ;_______________________ Fan fold two accross Labels _________________________ 
  2.  #27 69#                                 ;Reset LaserJet III printer.           
  3.  #27 &l2A#                               ;Letter size paper.                    
  4.  #27 &l6D#                               ;60 lines per inch.                    
  5.  #27 (s0P 27 (s10H#                      ;Fixed spacing, 10 CPI.                
  6.  HEADER RETURN1                          ;Return address as a header.           
  7.  HEADER RETURN2                          ;Right margin of DO is used to         
  8.  HEADER RETURN3                          ;              center margin on page.  
  9.  HEADER RETURN4                                                                 
  10.  HEADER                                  ;Blank line after header.              
  11.  TRIM(28)                                ;Lines after trimmed to (n) length.    
  12.  ;Continuous label forms.                                                       
  13.  ;Do two across on a page at the Column numbers.  Last number is Right margin.  
  14.  ;DO(Continuous feed, Column #10, Column #40, Right margin)                     
  15.  ;DO(             00,         10,         40,           79)                     
  16.  DO(00, 20, 50, 79) ;Start DO loop.                                             
  17.    01 FNAME ' ' LNAME                    ;First name, space and Last name.      
  18.    02 ADDRESS                            ;P. O. Box.                            
  19.    03 STREET                             ;Street address.                       
  20.    04 TOWN ', ' STATE '.' ZIP            ;City, State and Zip code.             
  21.    06                                    ;Last line of label.                   
  22.  ENDDO                                   ;End of DO loop.                       
  23.  #27 69#                                 ;Reset printer.                        
  24.